unit AboutFrm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, jpeg, ShellAPI;

type
  TAboutForm = class(TForm)
    Button1: TButton;
    TopPanel: TPanel;
    Label4: TLabel;
    Label1: TLabel;
    Bevel1: TBevel;
    VersionLabel: TLabel;
    LinkLabel: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure LinkLabelClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AboutForm: TAboutForm = nil;

implementation
uses Utils, ProgramM;

{$R *.dfm}

procedure TAboutForm.FormActivate(Sender: TObject);
begin
//  Image.Top := TopPanel.Height - Image.Picture.Height;
end;

procedure TAboutForm.FormCreate(Sender: TObject);
begin
  ProgramModule.SetScaling(Self);
  VersionLabel.Caption := 'Versioon ' + Utils.GetFileVersion(Application.ExeName);
end;

procedure TAboutForm.LinkLabelClick(Sender: TObject);
begin
  ShellExecute(self.WindowHandle,'open',PChar(LinkLabel.Caption),nil,nil, SW_SHOWNORMAL);
end;

end.
